home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #2 / Amiga Plus CD - 1997 - No. 02.iso / demo-versionen / uptodate / install deutsch < prev    next >
Text File  |  1978-06-11  |  6KB  |  229 lines
  1. ; $VER:UpToDate Install 2.0 (13.8.96)
  2.  
  3. (set @app-name "UpToDate 2.0")
  4. (set @language "deutsch")
  5. (welcome "Willkommen im Installationsprogramm von UpToDate!")
  6. (set Ok 0)
  7. (set omp (cat "Einen Moment bitte..." newline))
  8.  
  9. (complete 0)
  10.  
  11. (message "\n\nUpToDate Installationsskript V2.0.\n"
  12.             "Dieses Skript installiert UpToDate V2.0 auf Ihrem Amiga.\n"
  13.             "\nBitte lesen Sie vor der Benutzung unbedingt das README-File und das Handbuch!\n"
  14.             "\n©1994-1996 by Sebastian Rieger"
  15. )
  16.  
  17. (if (< (/ (getversion) 65536) 37)
  18.  
  19. (
  20.         (abort "UpToDate benötigt mindestens Workbench 2.04!")
  21. ))
  22.  
  23. (set newdest 
  24.     (askdir (prompt "Bitte geben Sie den Pfad an, in dem UpToDate die Schublade erzeugt werden soll.")
  25.         (help (cat "In diesem Einstellungsfenster können Sie den Pfad eingeben, in dem UpToDate \
  26.         installiert werden soll.\nSie können sowohl das von Ihnen gewünschte Laufwerk, als auch die Schublade angeben, in der das Programm gespeichert werden soll.\n\nHinweis: Es \
  27.         wird eine eigene Schublade für das Programm angelegt!\n\n" @askdir-help))
  28.         (default @default-dest)
  29.     )
  30. )
  31.  
  32. (set fulldest (tackon newdest "UpToDate"))
  33. (set @default-dest fulldest)
  34. (makedir
  35.     (fulldest)
  36.     (prompt "Lege Verzeichnis an...")
  37.     (help @makedir-help)
  38.     (infos)
  39. )
  40.  
  41.  
  42. (copylib
  43.     (prompt "Copying/Updating CanDo.Library\nThis library is needed for some additional programs of UTD.")
  44.     (help
  45.         "Die CanDo.library wird zum Start von UpToDate benötigt.\n"
  46.         "\nCanDo Legal Notice\n"
  47.         "\nThis program was designed and written with CanDo v3.0 ©1994.\n"
  48.         "Inovatronics, Inc.\n"
  49.         "8499 Greenville Ave. #209B\n"
  50.         "Dallas TX  75231  USA\n"
  51.         "(214)340-4991, FAX 340-8514\n"
  52.         "\nCanDo, Deckbrowser and their\n"
  53.         "support libraries are the\n"
  54.         "copyrighted sole property of\n"
  55.         "Inovatronics, Inc.  Reproduction\n"
  56.         "and distribution for any use other\n"
  57.         "than non-commercial applications\n"
  58.         "is strictly prohibited.\n\n"
  59.         @copylib-help
  60.     )
  61.     (source "Libs/CanDo.Library")
  62.     (dest "Libs:")
  63.     (confirm)
  64. )
  65.  
  66. (set Parts
  67.     (askoptions
  68.         (prompt "Welche Programmteile sollen installiert werden?")
  69.         (help @askoptions-help)
  70.         (choices "Beispiele" "Soundfiles")
  71.         (default %00)
  72.     )
  73. )
  74.  
  75. (copyfiles (prompt "Kopiere UpToDate Programmdateien...")
  76.         (help (cat "Das Installationsprogramm kopiert die zum Start von UpToDate notwendigen Files in \
  77.     das von Ihnen gewünschte Verzeichnis\n\n" @copyfiles-help))
  78.         (source "UpToDate")
  79.         (dest @default-dest)
  80.     (pattern "#?")
  81.     (files)
  82.         (infos)
  83. )
  84.  
  85. (copyfiles (prompt "Kopiere Icon...")
  86.         (help @copyfiles-help)
  87.         (source "Icons/Dir/UpToDate.info")
  88.         (dest newdest)
  89. )
  90.  
  91. (complete 20)
  92.  
  93. (copyfiles (prompt "Kopiere Overlays...")
  94.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  95.         (source "UpToDate/Overlays")
  96.         (dest (tackon @default-dest "Overlays"))
  97.         (all)
  98. )
  99.  
  100. (copyfiles (prompt "Kopiere Extra...")
  101.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  102.         (source "UpToDate/Extra")
  103.         (dest (tackon @default-dest "Extra"))
  104.         (all)
  105. )
  106.  
  107. (copyfiles (prompt "Kopiere Feiertage...")
  108.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  109.         (source "UpToDate/Feiertage")
  110.         (dest (tackon @default-dest "Feiertage"))
  111.         (all)
  112. )
  113.  
  114. (copyfiles (prompt "Kopiere Marks...")
  115.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  116.         (source "UpToDate/Marks")
  117.         (dest (tackon @default-dest "Marks"))
  118.         (all)
  119. )
  120.  
  121. (complete 45)
  122.  
  123. (copyfiles (prompt "Kopiere Catalogs...")
  124.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  125.         (source "Catalogs")
  126.         (dest (tackon @default-dest "Catalogs"))
  127.         (all)
  128. )
  129.  
  130. (copyfiles (prompt "Kopiere Catalogs...")
  131.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  132.         (source "Catalogs/deutsch")
  133.         (dest "Locale:Catalogs/deutsch")
  134.         (all)
  135. )
  136.  
  137. (if (in Parts 0)
  138.     (copyfiles (prompt "Kopiere Beispiele...")
  139.             (help (cat " werden kopiert.\n\n" @copyfiles-help))
  140.             (source "Beispiele")
  141.             (dest (tackon @default-dest "Beispiele"))
  142.             (all)
  143.     )
  144. )
  145.  
  146. (complete 50)
  147.  
  148. (if (in Parts 1)
  149.     (copyfiles (prompt "Kopiere Sounds...")
  150.             (help (cat " werden kopiert.\n\n" @copyfiles-help))
  151.             (source "Sounds")
  152.             (dest (tackon @default-dest "Sounds"))
  153.             (all)
  154.     )
  155. )
  156.  
  157. (copyfiles (prompt "Kopiere Konfig...")
  158.         (help (cat " werden kopiert.\n\n" @copyfiles-help))
  159.         (source "UpToDate/Konfig")
  160.         (dest (tackon @default-dest "Konfig"))
  161.         (all)
  162. )
  163.  
  164. (copyfiles (prompt "Kopiere Preferencesfile...")
  165.         (help (cat " wird kopiert.\n\n" @copyfiles-help))
  166.         (source "UpToDate.prefs")
  167.         (dest "env:")
  168.         (pattern "(UpToDate.prefs)")
  169.         (confirm)
  170. )
  171.  
  172. (copyfiles (prompt "Kopiere Preferencesfile...")
  173.         (help (cat " wird kopiert.\n\n" @copyfiles-help))
  174.         (source "UpToDate.prefs")
  175.         (dest "envarc:")
  176.         (pattern "(UpToDate.prefs)")
  177.         (confirm)
  178. )
  179.  
  180. (complete 95)
  181.  
  182. (message
  183.     "Sie müssen jetzt Ihre persönliche Namensdatei erstellen. Diese Daten werden z.B. für den Serienbrief und den Ringordner benötigt.\n"
  184. )
  185.  
  186. (set Nam (askstring
  187.         (prompt "Bitte geben Sie Ihren Namen ein:\n(z.B.: Max Mustermann)")
  188.         (help @ask-string)
  189.       )
  190. )
  191.  
  192. (set Str (askstring
  193.         (prompt "Bitte geben Sie Ihre Adresse ein:\n(z.B. Musterstraße 10)")
  194.         (help @ask-string)
  195.       )
  196. )
  197.  
  198. (set PLZ (askstring
  199.         (prompt "Bitte geben Sie Ihre PLZ und Ihren Ort ein:\n(z.B. 31123 Musterdorf)")
  200.         (help @ask-string)
  201.       )
  202. )
  203.  
  204. (set Tel (askstring
  205.         (prompt "Bitte geben Sie Ihre Telefonnummer ein:\n(e.g. 02231/5553)")
  206.         (help @ask-string)
  207.       )
  208. )
  209.  
  210. (set Ext (askstring
  211.         (prompt "Bitte geben Sie evtl. Zusatzinfos ein:\n((ihre Frima) z.B. Musterfirma)")
  212.         (help @ask-string)
  213.       )
  214. )
  215.  
  216. (textfile
  217.     (prompt "Ihre Namensdatei wird erstellt...")
  218.     (dest (tackon @default-dest "Name"))
  219.     (append Nam "\n")
  220.     (append Str "\n")
  221.     (append PLZ "\n")
  222.     (append Tel "\n")
  223.     (append Ext "\n")
  224. )
  225.  
  226. (complete 100)
  227.  
  228. (exit)
  229.